home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mcdsk340 / mcdsk-32.bas < prev    next >
BASIC Source File  |  1997-01-15  |  15KB  |  231 lines
  1. Attribute VB_Name = "MCDSK_32_DEF"
  2. Option Explicit
  3.  
  4. ' file
  5.  
  6. '  definition for error type for ISFileNameVALID
  7. Public Const IFV_ERROR = 0
  8. Public Const IFV_NAME_TOO_LONG = 1
  9. Public Const IFV_EXT_TOO_LONG = 2
  10. Public Const IFV_TOO_MANY_BACKSLASH = 3
  11. Public Const IFV_BAD_DRIVE_LETTER = 4
  12. Public Const IFV_BAD_COLON_POS = 5
  13. Public Const IFV_EXT_WITHOUT_NAME = 6
  14.  
  15. ' definition for sFile attributes
  16. Public Const A_RDONLY = &H1             'Read only file
  17. Public Const A_HIDDEN = &H2             'Hidden file
  18. Public Const A_SYSTEM = &H4             'System file
  19. Public Const A_SUBDIR = &H10            'Subdirectory
  20. Public Const A_ARCHIVE = &H20           'Archive file
  21. Public Const A_NORMAL = &H80            'Normal sFile - No read/write restrictions
  22. Public Const A_COMPRESSED = &H800       'Compressed file
  23. Public Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  24. Public Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  25.  
  26. ' definition for drive type
  27. Public Const DRIVE_UNKNOWN = 0
  28. Public Const DRIVE_NO_ROOT_DIR = 1
  29. Public Const DRIVE_REMOVABLE = 2
  30. Public Const DRIVE_FIXED = 3
  31. Public Const DRIVE_REMOTE = 4
  32. Public Const DRIVE_CDROM = 5
  33. Public Const DRIVE_RAMDISK = 6
  34.  
  35. '  definition for sFile sort
  36. Public Const SORT_ASCENDING = 1
  37. Public Const SORT_DESCENDING = 2
  38. Public Const SORT_CASE_SENSITIVE = 4
  39. Public Const SORT_CASE_INSENSITIVE = 8
  40.  
  41. ' definition for sFile I/O
  42. Public Const EOFILE = -1
  43. Public Const SEEK_CUR = 1
  44. Public Const SEEK_END = 2
  45. Public Const SEEK_SET = 0
  46.  
  47. ' definition for sFile uucp
  48. Public Const MODE_UUENCODE = 0
  49. Public Const MODE_UUDECODE = 1
  50.  
  51. ' definition for error type for SplitFile
  52. Public Const SPLIT_BAD_PARTSIZE = -1
  53. Public Const SPLIT_BAD_SOURCE_FILENAME = -2
  54. Public Const SPLIT_BAD_TARGET_FILENAME = -3
  55. Public Const SPLIT_CANT_OPEN_SOURCE = -4
  56. Public Const SPLIT_CANT_CREATE_TARGET = -5
  57.  
  58. ' definition for error type for CutFile
  59. Public Const CUT_BAD_POSITION = -1
  60. Public Const CUT_BAD_SOURCE_FILENAME = -2
  61. Public Const CUT_BAD_TARGET1_FILENAME = -3
  62. Public Const CUT_BAD_TARGET2_FILENAME = -4
  63. Public Const CUT_POSITION_TOO_BIG = -5
  64. Public Const CUT_CANT_OPEN_SOURCE = -6
  65. Public Const CUT_CANT_CREATE_TARGET1 = -7
  66. Public Const CUT_CANT_CREATE_TARGET2 = -8
  67.  
  68. ' definition for error type for GetFileDateTime
  69. Public Const GET_FILE_DT_NO_ERROR = -1
  70. Public Const GET_FILE_DT_CANT_OPEN_FILE = 8
  71. Public Const GET_FILE_DT_CANT_GET_TIME = 9
  72. Public Const GET_FILE_DT_CANT_CNV_CREATION = 1
  73. Public Const GET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  74. Public Const GET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  75.  
  76. ' definition for error type for SetFileDateTime
  77. Public Const SET_FILE_DT_NO_ERROR = -1
  78. Public Const SET_FILE_DT_CANT_OPEN_FILE = 8
  79. Public Const SET_FILE_DT_CANT_SET_TIME = 9
  80. Public Const SET_FILE_DT_CANT_CNV_CREATION = 1
  81. Public Const SET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  82. Public Const SET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  83.  
  84. ' definition for error type for FileMergeExt
  85. Public Const FILE_MERGE_NO_ERROR = -1
  86. Public Const FILE_MERGE_EMPTY_TARGET_FILENAME = -2
  87. Public Const FILE_MERGE_EMPTY_BAD_TARGET_FILENAME = -3
  88. Public Const FILE_MERGE_CANT_SET_FILE_BUFFER = -4
  89. Public Const FILE_MERGE_CANT_CREATE_TARGET_FILE = -5
  90. Public Const FILE_MERGE_ERROR_READING_FILE = -6
  91. Public Const FILE_MERGE_ERROR_WRITING_FILE = -7
  92. Public Const FILE_MERGE_ERROR_BAD_WRITE = -8
  93. Public Const FILE_MERGE_BAD_FILE_AT_POSITION = -10
  94.  
  95. ' structure for sFile attributes
  96. Type FileAttributeType
  97.    ErrNo             As Integer
  98.    Archive           As Integer
  99.    Hidden            As Integer
  100.    Normal            As Integer
  101.    ReadOnly          As Integer
  102.    SubDir            As Integer
  103.    System            As Integer
  104.    Compressed        As Integer
  105. End Type
  106.  
  107. ' structure for split path
  108. Type tagSPLITPATH
  109.    nDrive            As String
  110.    nDir              As String
  111.    nName             As String
  112.    nExt              As String
  113. End Type
  114.  
  115. ' structure for GetFileDateTime & SetFileDateTime
  116. Type tagSYSTEMTIME
  117.    wYear             As Integer
  118.    wMonth            As Integer
  119.    wDayOfWeek        As Integer
  120.    wDay              As Integer
  121.    wHour             As Integer
  122.    wMinute           As Integer
  123.    wSecond           As Integer
  124.    wMilliseconds     As Integer
  125. End Type
  126.  
  127. Declare Function cAllSubDirectories Lib "mcdsk-32.dll" (ByVal lpBaseDirectory As String, nDir As Long) As String
  128. Declare Function cChDir Lib "mcdsk-32.dll" (ByVal lpDir As String) As Integer
  129. Declare Function cChDrive Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Integer
  130. Declare Function cCmpFileAttribute Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  131. Declare Function cCmpFileContents Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer
  132. Declare Function cCmpFileSize Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  133. Declare Function cCmpFileTime Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  134. Declare Function cCountDirectories Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  135. Declare Function cCountFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  136. Declare Function cCutFile Lib "mcdsk-32.dll" (ByVal SourceFile As String, ByVal TargetFile1 As String, ByVal TargetFile2 As String, ByVal CutPosition As Long) As Long
  137. Declare Function cFileSize Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Long
  138. Declare Function cIsFileArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  139. Declare Function cIsFileEmpty Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  140. Declare Function cIsFileFlag Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nStatus As Integer) As Integer
  141. Declare Function cIsFileHidden Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  142. Declare Function cIsFileNormal Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  143. Declare Function cIsFileReadOnly Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  144. Declare Function cIsFileSubDir Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  145. Declare Function cIsFileSystem Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  146. Declare Function cIsFileCompressed Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  147. Declare Function cIsFilenameValid Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  148. Declare Function cKillDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  149. Declare Function cKillDirFilesAll Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  150. Declare Function cKillDirs Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  151. Declare Function cKillFile Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  152. Declare Function cKillFileAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  153. Declare Function cKillFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  154. Declare Function cKillFilesAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  155. Declare Function cMakeDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  156. Declare Function cMakeMultipleDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  157. Declare Function cFileResetAllAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  158. Declare Function cFileResetArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  159. Declare Function cFileResetFlag Lib "mcdsk-32.dll" (ByVal nFileName As String, ByVal nStatus As Integer) As Integer
  160. Declare Function cFileResetHidden Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  161. Declare Function cFileResetReadOnly Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  162. Declare Function cFileResetSystem Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  163. Declare Function cFileSetAllAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  164. Declare Function cFileSetArchive Lib "mcdsk-32.dll" (ByVal nFileName As String) As Integer
  165. Declare Function cFileSetAttrib Lib "mcdsk-32.dll" (ByVal nFileName As String, nFileAttribute As Any) As Integer
  166. Declare Function cFileSetFlag Lib "mcdsk-32.dll